CAAPlanetPerihelionAphelion_NeptunePerihelion <-
function(k){
.Call("CAAPlanetPerihelionAphelion_NeptunePerihelion", k)
}
